﻿Public Class AyudaTesteo

    Private Sub btn_CERRAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_CERRAR.Click
        Me.Close()
    End Sub



    Private Sub AyudaTesteo_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        RichTextBox1.SelectionStart = RichTextBox1.Find("PURLOIN")
        '   RichTextBox1.SelectionStart = RichTextBox1.Find("GONEAR")
        Dim bfont As New Font(RichTextBox1.Font, FontStyle.Bold)
        RichTextBox1.SelectionFont = bfont
    End Sub

   
End Class